home *** CD-ROM | disk | FTP | other *** search
/ AOL File Library: 4,401 to 4,500 / aol-file-protocol-4400-4401-to-4500.zip / AOLDLs / PDA-Newton Development / ND TV Pad Source / TV Pad Ä.sit / TV Pad ƒ / Project Data < prev    next >
Text File  |  1994-03-01  |  6KB  |  142 lines
  1. //-------------------------------------------------------------------------------
  2. //          Constants
  3. //-------------------------------------------------------------------------------
  4.  
  5. constant kMagnavoxTV := 0;
  6. constant kEmersonVCR := 1;
  7. constant kMitsubishiTV := 2;
  8. constant kSonyTV := 3;
  9.  
  10. //-------------------------------------------------------------------------------
  11. //          Command Constants
  12. //-------------------------------------------------------------------------------
  13.  
  14. constant kCh0:= 0;
  15. constant kCh1:= 1;
  16. constant kCh2:= 2;
  17. constant kCh3:= 3;
  18. constant kCh4:= 4;
  19. constant kCh5:= 5;
  20. constant kCh6:= 6;
  21. constant kCh7:= 7;
  22. constant kCh8:= 8;
  23. constant kCh9:= 9;
  24. constant kChPlus:= 10;
  25. constant kChMinus:= 11;
  26. constant kLouder:= 12;
  27. constant kSofter:= 13;
  28. constant kMute:= 14;
  29. constant kRewind := 15;
  30. constant kPlay:= 16;
  31. constant kForward := 17;
  32. constant kStop := 18;
  33. constant kPause := 19;
  34. constant kRecord := 20;
  35. constant kPower := 21;
  36. constant kTVCR := 22;
  37. constant kAltCh := 23;
  38.  
  39. constant kSwitchRemote1 := 101;
  40. constant kSwitchRemote2 := 102;
  41. constant kSwitchRemote3 := 103;
  42. constant kSwitchRemote4 := 104;
  43.  
  44.  
  45. //-------------------------------------------------------------------------------
  46. //          Magnavox Resources
  47. //-------------------------------------------------------------------------------
  48.  
  49. rf := OpenResFileX(Home & "Magnavox.rsrc");
  50. magTCh0 := GetNamedResource("IRCD", "MagTCh0", 'resource);
  51. magTCh1 := GetNamedResource("IRCD", "MagTCh1", 'resource);
  52. magTCh2 := GetNamedResource("IRCD", "MagTCh2", 'resource);
  53. magTCh3 := GetNamedResource("IRCD", "MagTCh3", 'resource);
  54. magTCh4 := GetNamedResource("IRCD", "MagTCh4", 'resource);
  55. magTCh5 := GetNamedResource("IRCD", "MagTCh5", 'resource);
  56. magTCh6 := GetNamedResource("IRCD", "MagTCh6", 'resource);
  57. magTCh7 := GetNamedResource("IRCD", "MagTCh7", 'resource);
  58. magTCh8 := GetNamedResource("IRCD", "MagTCh8", 'resource);
  59. magTCh9 := GetNamedResource("IRCD", "MagTCh9", 'resource);
  60. magTChPlus := GetNamedResource("IRCD", "MagTChUp", 'resource);
  61. magTChMinus := GetNamedResource("IRCD", "MagTChDn", 'resource);
  62. magTLouder := GetNamedResource("IRCD", "MagTVolUp", 'resource);
  63. magTSofter := GetNamedResource("IRCD", "MagTVolDn", 'resource);
  64. magTMute := GetNamedResource("IRCD", "MagTMute", 'resource);
  65. magTPower := GetNamedResource("IRCD", "MagTPower", 'resource);
  66. magTAltCh := GetNamedResource("IRCD", "MagTAltCh", 'resource);
  67. CloseResFileX(rf);
  68.  
  69.  
  70. //-------------------------------------------------------------------------------
  71. //          Emerson Resources
  72. //-------------------------------------------------------------------------------
  73.  
  74. rf := OpenResFileX(Home & "Emerson.rsrc");
  75. emrCh0 := GetNamedResource("IRCD", "EmCh0", 'resource);
  76. emrCh1 := GetNamedResource("IRCD", "EmCh1", 'resource);
  77. emrCh2 := GetNamedResource("IRCD", "EmCh2", 'resource);
  78. emrCh3 := GetNamedResource("IRCD", "EmCh3", 'resource);
  79. emrCh4 := GetNamedResource("IRCD", "EmCh4", 'resource);
  80. emrCh5 := GetNamedResource("IRCD", "EmCh5", 'resource);
  81. emrCh6 := GetNamedResource("IRCD", "EmCh6", 'resource);
  82. emrCh7 := GetNamedResource("IRCD", "EmCh7", 'resource);
  83. emrCh8 := GetNamedResource("IRCD", "EmCh8", 'resource);
  84. emrCh9 := GetNamedResource("IRCD", "EmCh9", 'resource);
  85. emrChPlus := GetNamedResource("IRCD", "EmChUp", 'resource);
  86. emrChMinus := GetNamedResource("IRCD", "EmChDn", 'resource);
  87. emrPower := GetNamedResource("IRCD", "EmPower", 'resource);
  88. emrRew := GetNamedResource("IRCD", "EmRew", 'resource);
  89. emrPlay := GetNamedResource("IRCD", "EmPlay", 'resource);
  90. emrFF := GetNamedResource("IRCD", "EmFF", 'resource);
  91. emrStop := GetNamedResource("IRCD", "EmStop", 'resource);
  92. emrPause := GetNamedResource("IRCD", "EmPause", 'resource);
  93. emrRecord := GetNamedResource("IRCD", "EmRecord", 'resource);
  94. emrTVCR := GetNamedResource("IRCD", "EmTVCR", 'resource);
  95. CloseResFileX(rf);
  96.  
  97. //-------------------------------------------------------------------------------
  98. //          Mitsubishi TV Resources
  99. //-------------------------------------------------------------------------------
  100.  
  101. rf := OpenResFileX(Home & "Mitsubishi.rsrc");
  102. mitTCh0 := GetNamedResource("IRCD", "MitsCh0", 'resource);
  103. mitTCh1 := GetNamedResource("IRCD", "MitsCh1", 'resource);
  104. mitTCh2 := GetNamedResource("IRCD", "MitsCh2", 'resource);
  105. mitTCh3 := GetNamedResource("IRCD", "MitsCh3", 'resource);
  106. mitTCh4 := GetNamedResource("IRCD", "MitsCh4", 'resource);
  107. mitTCh5 := GetNamedResource("IRCD", "MitsCh5", 'resource);
  108. mitTCh6 := GetNamedResource("IRCD", "MitsCh6", 'resource);
  109. mitTCh7 := GetNamedResource("IRCD", "MitsCh7", 'resource);
  110. mitTCh8 := GetNamedResource("IRCD", "MitsCh8", 'resource);
  111. mitTCh9 := GetNamedResource("IRCD", "MitsCh9", 'resource);
  112. mitTChPlus := GetNamedResource("IRCD", "MitsChUp", 'resource);
  113. mitTChMinus := GetNamedResource("IRCD", "MitsChDn", 'resource);
  114. mitTLouder := GetNamedResource("IRCD", "MitsLouder", 'resource);
  115. mitTSofter := GetNamedResource("IRCD", "MitsSofter", 'resource);
  116. mitTMute := GetNamedResource("IRCD", "MitsMute", 'resource);
  117. mitTPower := GetNamedResource("IRCD", "MitsPower", 'resource);
  118. mitTAltCh := GetNamedResource("IRCD", "MitsAltCh", 'resource);
  119. CloseResFileX(rf);
  120.  
  121. //-------------------------------------------------------------------------------
  122. //          Sony TV Resources
  123. //-------------------------------------------------------------------------------
  124.  
  125. rf := OpenResFileX(Home & "SonyTV.rsrc");
  126. sonyTCh0 := GetNamedResource("IRCD", "SonyTV0", 'resource);
  127. sonyTCh1 := GetNamedResource("IRCD", "SonyTV1", 'resource);
  128. sonyTCh2 := GetNamedResource("IRCD", "SonyTV2", 'resource);
  129. sonyTCh3 := GetNamedResource("IRCD", "SonyTV3", 'resource);
  130. sonyTCh4 := GetNamedResource("IRCD", "SonyTV4", 'resource);
  131. sonyTCh5 := GetNamedResource("IRCD", "SonyTV5", 'resource);
  132. sonyTCh6 := GetNamedResource("IRCD", "SonyTV6", 'resource);
  133. sonyTCh7 := GetNamedResource("IRCD", "SonyTV7", 'resource);
  134. sonyTCh8 := GetNamedResource("IRCD", "SonyTV8", 'resource);
  135. sonyTCh9 := GetNamedResource("IRCD", "SonyTV9", 'resource);
  136. sonyTChPlus := GetNamedResource("IRCD", "SonyTVchUp", 'resource);
  137. sonyTChMinus := GetNamedResource("IRCD", "SonyTVchDown", 'resource);
  138. sonyTLouder := GetNamedResource("IRCD", "SonyTVvolUp", 'resource);
  139. sonyTSofter := GetNamedResource("IRCD", "SonyTVvolDown", 'resource);
  140. sonyTMute :=  GetNamedResource("IRCD", "SonyTVmute", 'resource);
  141. sonyTPower :=  GetNamedResource("IRCD", "SonyTVpowerToggle", 'resource);
  142. CloseResFileX(rf);